SORT CASES  BY UncertainType.
SPLIT FILE LAYERED BY UncertainType.

DESCRIPTIVES VARIABLES=propNowG0 propNowG1 propNowL0 propNowL1
  /STATISTICS=MEAN SEMEAN.

GLM propNowG0u propNowG1u propNowL0u propNowL1u BY UncertainTime MBA
  /WSFACTOR=sign 2 Polynomial mag 2 Polynomial 
  /METHOD=SSTYPE(3)
  /PRINT=ETASQ 
  /CRITERIA=ALPHA(.05)
  /WSDESIGN=sign mag sign*mag
  /DESIGN=UncertainTime MBA UncertainTime*MBA.

SORT CASES  BY UncertainType UncertainTime.
SPLIT FILE LAYERED BY UncertainType UncertainTime.

DESCRIPTIVES VARIABLES=propNowG0u propNowG1u propNowL0u propNowL1u
  /STATISTICS=MEAN SEMEAN.
  
SORT CASES  BY UncertainType.
SPLIT FILE LAYERED BY UncertainType.
USE ALL.
COMPUTE filter_$=(MBA=1).
VARIABLE LABELS filter_$ 'MBA=1 (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMATS filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.
UNIANOVA propNowG0u BY UncertainTime
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /PRINT=ETASQ
  /CRITERIA=ALPHA(.05)
  /DESIGN=UncertainTime.

 FILTER OFF.
USE ALL.
EXECUTE.

GLM propNowG0 propNowG1 propNowL0 propNowL1 BY MBA
  /WSFACTOR=sign 2 Polynomial mag 2 Polynomial
  /METHOD=SSTYPE(3)
  /PRINT=ETASQ
  /CRITERIA=ALPHA(.05)
  /WSDESIGN=sign mag sign*mag
  /DESIGN=MBA.
  
  SORT CASES  BY UncertainType MBA.
SPLIT FILE LAYERED BY UncertainType MBA.
DESCRIPTIVES VARIABLES=riskL1 riskL2 riskG1 riskG2
  /STATISTICS=MEAN SEMEAN.

SORT CASES  BY UncertainType.
SPLIT FILE LAYERED BY UncertainType.
GLM riskL1 riskL2 riskG1 riskG2 BY MBA
  /WSFACTOR=sign 2 Polynomial mag 2 Polynomial
  /METHOD=SSTYPE(3)
  /PRINT=ETASQ
  /CRITERIA=ALPHA(.05)
  /WSDESIGN=sign mag sign*mag
  /DESIGN=MBA.

  COMPUTE PTEr=(riskL1+riskL2)/2 - (riskG1+riskG2)/2.
EXECUTE.
IF  (UncertainTime="n") PTErd=(propNowL0u+propNowL1u)/2 - (propNowG0u+propNowG1u)/2.
EXECUTE.
IF  (UncertainTime="l") PTErd=(1-(propNowL0u+propNowL1u)/2) - (1- (propNowG0u+propNowG1u)/2).
EXECUTE.

DESCRIPTIVES VARIABLES=PTEr
  /STATISTICS=MEAN STDDEV SEMEAN.

T-TEST
  /TESTVAL=0
  /MISSING=ANALYSIS
  /VARIABLES=PTEr
  /CRITERIA=CI(.95).

  
  SORT CASES  BY UncertainType UncertainTime.
SPLIT FILE LAYERED BY UncertainType UncertainTime.
DESCRIPTIVES VARIABLES=PTErd
  /STATISTICS=MEAN STDDEV SEMEAN.

T-TEST
  /TESTVAL=0
  /MISSING=ANALYSIS
  /VARIABLES=PTErd
  /CRITERIA=CI(.95).

SORT CASES  BY UncertainType.
SPLIT FILE LAYERED BY UncertainType.
USE ALL.
COMPUTE filter_$=(UncertainTime="n" or UncertainTime="l").
VARIABLE LABELS filter_$ 'UncertainTime="n" or UncertainTime="l" (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMATS filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.

GLM PTEr PTErd BY MBA UncertainTime
  /WSFACTOR=intertemporal 2 Polynomial
  /METHOD=SSTYPE(3)
  /PRINT=ETASQ
  /CRITERIA=ALPHA(.05)
  /WSDESIGN=intertemporal
  /DESIGN=MBA UncertainTime MBA*UncertainTime.

SORT CASES  BY UncertainType UncertainTime.
SPLIT FILE LAYERED BY UncertainType UncertainTime.
T-TEST PAIRS=PTEr WITH PTErd (PAIRED)
  /CRITERIA=CI(.9500)
  /MISSING=ANALYSIS.





